<%@LANGUAGE="VBSCRIPT" CODEPAGE="1251"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
<title>Untitled Document</title>
</head>

<body>
<%

IF Request.Form("urlFile")<>"" THEN
	Dim objFile
	Dim objStream
	Dim strAllFile
	
	urlFile=Request.Form("urlFile")
	
	Set objFile= Server.CreateObject("Scripting.FileSystemObject")
	Set objStream=objFile.OpenTextFile(urlFile,1,false)
	s=1
	tr=false
	do while (s<11)
		StringT=objStream.ReadLine
		StringT=replace(StringT,"<","|[|")
		StringT=replace(StringT,">","|]|")
		strAllFile=strAllFile & StringT & "<br>"
		s=s+1
		if objStream.atEndOfStream then 
			tr=true
			exit do
		end if
	loop
	
	if tr=false then strAllFile=strAllFile & "<center><b>. . .</b></center>"
	
	%>
	<textarea name="TextF" id="TextF" cols="30" rows="30"><%=strAllFile%></textarea>
	<script language="JavaScript" type="text/JavaScript">
		var VwTxt=parent.document.getElementById("TxtRF");
		var TextV=document.getElementById("TextF");
		Str=TextV.value.replace("|[|","&lt;");
		Str=Str.replace("|]|","&gt;");
		VwTxt.innerHTML=Str
	</script>
	<%
END IF
%>
</body>
</html>
